home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #228 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #228 (1993)(Rhein-Sieg-Soft).adf / Tagesspruch_v1.0 / Tagesspruch.p < prev    next >
Text File  |  1993-04-08  |  2KB  |  70 lines
  1. Program Tagesspruch;
  2.  
  3. USES Crt;              (* für eigenes Fenster *)
  4. Const MaxSpruch = 29; (* Maximale Sprüche *)
  5.  
  6.  
  7. Type Spruch = Array[1..MaxSpruch] of String;
  8.  
  9. Var TSP:Spruch;
  10.     Zahl2:integer;
  11.     taste:Char;
  12.     f:Text;
  13.  
  14.  
  15. Begin
  16.  
  17.  
  18. (* Nun schreiben wir die Sprüche in das vorbereitete
  19.    Feld TSP,wir müssen aufpassen,daß die Anzahl mit
  20.    MaxSpruch übereinstimmt! *)
  21.  
  22. TSP:=Spruch("Der HERR nimmt,der HERR gibt",
  23.      "Unrecht Gut gedeihet nicht!",
  24.      "Trau,schau wem!",
  25.      "Morgenstund hat Gold im Mund.",
  26.      "Eigener Herd ist Goldes wert.",
  27.      "Spare in der Zeit,dann hast du in der Not.",
  28.      "Unrecht Gut gedeihet nicht.",
  29.      "Wer Wind sät wird Sturm ernten.",
  30.      "Trau,schau wem.",
  31.      "Vertrauen ist gut,Vorsorge ist besser.",
  32.      "Ist die Katze nicht da,tanzen die Mäuse auf dem Tische",
  33.      "Wer den Pfennig nicht ehrt,ist den Taler nicht wert.",
  34.      "In der Feder schwingt mit der Geist.",
  35.      "Bauer werden ist nicht schwer,Bauer bleiben eine Ehr.",
  36.      "Ehrlich sein tut immer gut.",
  37.      "Armut schändet nicht.",
  38.      "Ehrliche Arbeit schändet nicht.",
  39.      "Lieber arm und gesund,als reich und krank.",
  40.      "Schau ihn an,den Wetterhahn,ob er heute krähen kann?",
  41.      "Wenn ein Bettler auf einen Gaul kommt,reitet er ihn tot.",
  42.      "Lügen haben kurze Beine",
  43.      "Härte,wo Härte verlangt,Milde,wo Milde gebraucht.",
  44.      "Sei immer sparsam,bescheiden und ehrlich.",
  45.      "Wo keine Glut mehr ist,erlischt das Feuer.",
  46.      "Der Wahn ist kurz,die Reu ist lang.",
  47.      "Ein gesagtes Wort kann nicht zurückgeholt werden.",
  48.      "Verurteile niemanden zu früh!",
  49.      "Es ist nicht alles Gold,was glänzt.",
  50.      "Die Zeit heilt viele Wunden.");
  51.  
  52. Randomize;
  53. Windowtitles('                  Tagesspruch v1.0',Str(-1));
  54. Zahl2:=random(Maxspruch);  (* Zufallszahl,die den Spruch
  55.                               bestimmt *)
  56. GotoXY(10,10);             (* Positionierung des Cursors!*)
  57. Writeln(TSP[Zahl2]);       (* Ausgabe des Spruches *)
  58. Delay(250);               (* warten...*)
  59. End.
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.